home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-11
/
shelp50a.zip
/
HELPCON.PRG
< prev
next >
Wrap
Text File
|
1991-08-11
|
4KB
|
114 lines
FUNCTION Helpcon
*==========================================================================
* Helpcon (Conceptual Level Help System)
* Project Name: Helpdemo
* Project Description: Superhelp Library
* Written By: Darryl Strickland
*
* Help System Generated by Superhelp Codegen 5.0
* Generated August 11, 1991 - 8:42 PM
* Copyright (c) by DJS Applications
*
* Help Methods - Simulated Memoedit
* Superhelp Codegen Reference File Produced (SHELP.REF )
* Help System Requires Superhlp.Lib at Link Time
*
* Thank you for using Superhelp Code Generator 5.0 - DJS Applications
*==========================================================================
PARAMETER cProc,nLine,cVar
LOCAL nRowhlp,nColhlp,lBadfile,cOldArea,cOldColor
LOCAL nCurState,nHelpSize
LOCAL nBurnSize,cBurnDate,cBurnTime
PRIVATE nHlphandle,nTopRow,nLeftCol,nBotRow,nRightCol,cHeader
PRIVATE cFooter,nHeadcol,nFootcol,cWinColor,nShadClrf,nShadClrb,cFrame,cMidBar
PRIVATE nWinType,cShadType,nBoxMethod,lIplode,lXplodeTxt,nHlpSpacer
PRIVATE cHeadColor,cFootColor,cFramColor,cTrimHdr,nFootType
PRIVATE lMicroVoic,lEditRef,nPadSize,nLookPt,cOldScr
PRIVATE nTxtSize,nMWidth,nNoLines,nDspMeth,nLineSize,cTrimFoot
PRIVATE nText_Cnt,nScrnSize,nStartRow,lOutLoop,nNoFrames,nBliMrkx
PRIVATE nLines,nCnt,cSpeakStr,lSpeakOk,lVoiceload,cLstDir,nStartPt,aHelpline:={}
PRIVATE nReadSize,lTopPage,lBotPage,nByteRead,nPrevRead
SET PROCEDURE TO HELPLIB
SET PROCEDURE TO HELPMGR
SETBLINK(.F.)
lVoiceload := .F.
nBliMrkx := 13
nRowhlp := ROW()
nColhlp := COL()
SET KEY -20 TO
cOldcolor := SETCOLOR()
nCurState := SETCURSOR(0)
cVar := "CONCEPTUAL"
IF TYPE("shelpproc") == "C"
IF !EMPTY("shelpproc")
cProc := UPPER(shelpproc)
ENDIF
ENDIF
IF TYPE("shelpvar") == "C"
IF !EMPTY("shelpvar")
cVar := UPPER(shelpvar)
ENDIF
ENDIF
cOldscr := SAVESCREEN(0,0,MaxRow(),MaxCol())
lBadfile := .F.
IF FILE("SHELP.REF")
nHlphandle := FOPEN("SHELP.REF",2)
nHlpsize := FSEEK(nHlphandle,0,2)
FSEEK(nHlphandle,-20,2)
nBurnSize := SPACE(7)
cBurnDate := SPACE(8)
cBurnTime := SPACE(5)
FREAD(nHlphandle,@nBurnSize,7)
FREAD(nHlphandle,@cBurnDate,8)
FREAD(nHlphandle,@cBurnTime,5)
FSEEK(nHlphandle,0)
IF nHlpsize <> VAL(nBurnSize) .OR. '08/11/91' <> cBurnDate .OR. '20:42' <> cBurnTime
lBadfile := .T.
ENDIF
ELSE
lBadfile := .T.
ENDIF
IF lBadfile
SRIGHTBX(09,20,13,60,"╓─╖║╜─╙║ ",.F.,'B/W+','B/W+','R',.T.,7,0)
@09,22 SAY "╢ Help Error ╟"
@11,22 SAY "Please restore SHELP.REF from disk"
@13,25 SAY "╢ Superhelp Codegen 5.0 ╟"
INKEY(10)
SETCOLOR(cOldcolor)
SET KEY -20 TO Helpcon
@nRowhlp,nColhlp SAY ""
RESTSCREEN(0,0,MaxRow(),MaxCol(),cOldscr)
RETURN NIL
ENDIF
DO CASE
* Window Description : Link Window Demonstration
CASE (cProc == "MASTER" .AND. cVar == "CUSTOMER")
HELPPREP(37672)
* Window Description : Superhelp Introduction
CASE (cProc == "REGISTER" .AND. cVar == "CONCEPTUAL")
HELPPREP(38154)
OTHERWISE
SRIGHTBX(09,20,13,60,"╓─╖║╜─╙║ ",.F.,'B/W+','B/W+','R',.T.,7,0)
@09,22 SAY "╢ No Help Found ╟"
@11,25 SAY "Superhelp Code Generator 5.0"
@13,26 SAY "╢ Press any key to continue ╟"
INKEY(10)
SETCOLOR(cOldcolor)
SET KEY -20 TO Helpcon
@nRowhlp,nColhlp SAY ""
RESTSCREEN(0,0,MaxRow(),MaxCol(),cOldscr)
RETURN NIL
ENDCASE
DSPHELP()
SETCOLOR(cOldcolor)
SET KEY -20 TO Helpcon
FCLOSE(nHlphandle)
SETCURSOR(nCurState)
RELEASE aHelpLine
@nRowhlp,nColhlp SAY ""
RESTSCREEN(0,0,MaxRow(),MaxCol(),cOldscr)
RETURN NIL